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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND og ho 
tt ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
i COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
- Panneeeaneee” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


'* THE gh oy pha IN THIS SOFTWARE IS SU 
'* AND SHOULD NOT BE CONSTRUED AS AC 
's CORPORATION. 


't DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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3 'e4¢ 
' 

; FACILITY: FIIACP Structure Leve! 2 

0 

0 i 

0 i This routine creates a new file ID by ol ipces ting a file number from the 

index file bitmap. It returns an empty file header, verified for use. 
: ENVIRONMENT : 

00: § i STARLET operating system, including privileged system services 

00. i and internal exec routines. 

0044 i 

0045 in 

ong 1 t | 

Be : AUTHOR: Andrew C. Goldstein, CREATION DATE: 28-Mar-1977 13:49 

0050 MODIFIED BY: 

4 i v03-022 cosooty Christian D. Saether 20-Aug-1984 

Boe i Force fcb for indexf to be stale always before 

Bnee attempting to map vbns. | 
| 

0056 i v03-021 CDS0016 Christian D. Fegther 13-Aug-1984 

0057 i Back off an extra dot in ACG0438. 


H 3 

CREHDR 16-Sep-1984 00:09:41 VAX-11 Bliss-32 V4.0-742 Page 2. 

0 1er8een 138s 93:98:4, «— UTSKSVmGHASTERSCI Tix. SReICREHDR.832; 1° id 
3 0058 1! $ 
3 836 me V03-020 ACG0438 Andrew F Goldstein, 1-Aug-1984 11:55 ; 
; 060 1! Add cache ingerlock logic on FID cache; use central : 
: 8 ! dequeue routine. : 
: $68 1 i v03-019 LMPO278 L. Mark Pilant 12-Jul-1984 10:58 | : 
; 064 1: Fix a bug that caused the EXBYTLM error if it was necessary ; 
: bee : } to turn the index file window. : 
; O06? 1 | v03-018 cDs0015 Christian D. Saether 17-Apr-1984 | ; 
; 0068 1! Have MAP_IDX check to see whether curr_lckindx is : 
: 49 : for the index file to avoid releasing Tt if so. : 
; 0071 1: v03-017 cps0014 Christian D. Saether 11-Apr-1984 F 
3 pore 1! Release allocation lock prior to sor tat ising on F 
; 0075 1! new primary header. This eliminates potential 3 
3 0074 1! deadlocks when the new primary header is a valid : 
; st) . } header that someone else is messing with. : 
: 0077 1! V03-016 CDS0013 Christian D. Saether 1-Apr-1984 : 
; +4 ; ACG0409 forgot to rewrite indexf bitmap buffer. No joke. : 
; 0080 1 | V03-015 ACG0409 Andrew C. Goldstein, 21-Mar-1984 19:40 | 3 
: 0081 1! Redesign file ID cocheing algorithm so that file ID's ; 
; 0082 1! pevena the index file EOF are not cached. Eliminate F 
3 0083 1! BASH_HEADERS routine; genera: code cleanup to remove : 
: ait : kernel calls. CHECK _HEADER2 no Longer writes USER_STATUS. | : 
: 0086 1: V03-014 ACG0404 Andrew C. Goldstein, 15-Mar-1984 17:37 ; 
: ie $4 : Correct releasing of file sync lock when retrying for a header | : 
; 0089 1 v03-013 cDS0012 Christian D. Saether 23-Feb-1984 | ; 
: i ! Eliminate references to FLUSH_LOCK_BASIS. : 
; 0092 1: v03-012 cDS0011 Christian D. Saether 27-Dec-1983 ; 
: it ! Use BIND_COMMON macro. : 
; 0095 1 v03-011 CDS0010 Christian D. Saether 12-Dec-1983 ; 
: 444 ' Start of XQP code is at symbol INITXQP now. : 
; 0098 1: v03-010 CDS0009 Christian D. Saether 5-0ct-1983 ; 
; 150 8400 : Fix bug restoring privileges to the PCB. : 
: 101 0101 1: v03-009 CDS0008 Christian D. Saether 3-0c t-1983 | 3 
; 106 4 1: Save/restore CURR_LCKINDX where necessary rather : 
; 13? biz : } than PRIM_LCKINDX: 3 
3 : | 3 
3; 105 0105 1! v03-008 CDS0007 Christian D, Saether 13-Sep-1983 : 
; 54 Bioe : Modify interface to allocation serialization. | 
: 108 0108 1: v03-007 CDS0006 Christian D. Saether 12-May-1983 | 
3 193 4 ' } Serialize header creation. 
+ 111 111 1 v03-006 CDS0005 Gprietion D. Saether 11-Mar-1983 
3 ! ee privilege also. 

"8 iN : Need BYPASS ivil L 

: 114 114 = 1/3 v03-005 CDS0004 Christian D. Saether 20-Feb-1983 


-1 
= 
x IL 
header is checked before deciding to extend 

index file. 

Also make READ_IDX_HEADER insensitive to headers that 
map more than fhe FCB knows about. 

Totally punt figuring out what to do with EFBLK 


Wy 90:03) VAX-11 Bliss-32 V4.0-742 Page 
4 12:30:14 DISKSVMSMASTER:CF11X.SRCICREHDR.B32;1 (1 
SIZE so that 


i¢) 
i¢) 
F 


9 
g 
Call MAP_VBN before checkin E 


Previous revision history moved to F11B.REV 


! 

i 

! 

: 

for the index file. 

v03-004 CDS0003 Christian D. Saether 13-Jan-1983 
Separately save and restore PHD privs. 

i v03-003 cps0002 Christian D. Saether 28-Dec-1982 

Give priv around Q10. 

i v03-002 CDs0001 C Saether 3-Aug-1982 

Change Q10W to Q10 with completion AST. 

i v03-001 ACG0273 Andrew C. Goldstein, | 23-Mar-1982 10:50 
: Use random file sequence number if old header is junk, 

use alternate index file header if primary is suspect 

i v02-007 ACG0229 Andrew C. Goldstein, 23-Dec-1981 21:53 
Count file ID cache hits and misses 

! V02-006 ACG0167 Andrew C. Goldstein 16-Apr-1980 19:25 
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LIBRARY s SYSSLIBRARY 1 18,L52"; 
REQUIRE ‘SRC$:FCPDEF.B32'; 
FORWARD ROUTINE 
4 CREATE HEADER NORM, ! create file ID and header 
5 FILL_FID_CACH L-NORM NOVALUE, ! Load file ID cache from bitmap 
5 INIT_FID_CACHE : L_NORM NOVALUE , ! initialize file ID cache lock 
5 READ NEW_HEADER : L_NORM, : read new file header block 
5 HANDLER, ' local condition handler 
5 READ_IDX_HEADER : L_NORM, ' read index file header 
5 MAP _TDX : LINORM; ! map vbn for index file. 


~—sS 
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} 
H 4 1166 1 GLOBAL ROUTINE CREATE_HEADER (FILE_ID) : L_NORM = | . 
; 158 114 1 ‘ 
; 159 1148 1 S++ | : 
; 160 1149 1! : 
; 19) 1129 ! ; FUNCTIONAL DESCRIPTION: | : 
; 183 1126 7 This routine creates a new file ID by searching the volume's index : 
>; 164 1155 1! file bitmap for the first free file number. It also checks that a : 
3; 165 1128 1! header for the file number is present in the index file. It reads : 
: 166 1155 1! the old header and establishes the file sequence number for the ; 
3 4c? 1156 3 new one. ; 
; 168 + a & : 
; 169 1156 1 ' CALLING SEQUENCE: ; 
; 170 1159 1! CREATE_HEADER (ARG1) : 
. ary 1160 1! : 
; ve 1161 1 =! INPUT PARAMETERS: : 
c OF 1136 7. NONE ; 
> 174 1163 1! | ; 
3 79 1164 1 ! JMPLICIT INPUTS: : 
; 178 BF : % CURRENT_VCB: address of volume's VCB ; 
; 178 116? 1 | OUTPUT PARAMETERS: : 
; +4 1338 : ARG1: address to store file ID of created header : 
; (181 1170 1 ! IMPLICIT OUTPUTS: : 
3 \8¢ 1171 1! NEW_FID: file number of header created ‘ 
; «18 1178 4 NEW_FID_RVN: RVN of above : 
; (184 1173 1! : 
> (185 1174 1 | ROUTINE VALUE: : 
; 186 1175 1! address of buffer containing new header : 
; 187 1176 1! : 
; «(188 1177 1! SIDE EFFECTS: — ; : 
3 + 1178 ! VCB and index file bitmap altered, header block read ; 
3; (191 1180 1 !-- : 
; 136 1181 1 : 
3; 19 1186 BEGIN : 
3: 194 118 : 
; 195 1184 MAP : 
: 196 By $4 FILE_ID : REF BBLOCK; ! new file ID of header : 
: 198 1187 LABEL : 
3 4 1 tae GET_F ILE_NUM; ! acquire a file number | : 
: 201 1190 1.OCAL : 
3 0g oh CACHE FLUSHED.» sulting <0 ! flag indicating cluster caches flushed : 
08 ies veEB REF BBLOCK re eta Ay Agee Ree — | 
: : - | local copy o addres : 
3 206 1195 FID_CACHE : REF BBLOCK, ! pointer 34 file ID cache : 
; 207 113 ! relative block number in bitnap : 
; 208 119 BUFFER : REF BITVECTOR, ! address of index file bitmap buffer : 
; 209 1198 ADDRESS : REF BITVECTOR, ! address of byte in buffer | ; 
: 210 1199 CURRENT_EOF, ' current EOF of index file | : 
; (atl 1200 COUNT, ' number of index blocks to bash : 
; i 1 Bt FILE NUMBER, ! file number allocated ‘ 
3; el 1202 IDX_FCB : REF BBLOCK, ! FCB of index file | : 


: 

k 3 
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1a-Sep- 1384 99: 93 :14 DISKSVMSMASTER:CF11X.SRCIJCREHDR.B32; 39 * (23) 
' LBN of new file header 


ABER : REF BBLOCK, i address of header buffer 
ATUS; ! value of CHECK_HEADER call 


EXTERNAL 

PMS$GL_FIDHIT : ADDRESS ING_MODE (GENERAL) 
count or file ID cache hits 
PMSSGL_FIDMISS : ADDRESS ING_MODE (GEN ERA 
ount of ‘tite ID cache misses 

EXESGQ_SYSTIME : ADDRESS ING_MODE (GEN ERA 

system Fike of day 

BIND_COMMON; 


EXTERNAL Pay tstyi 
LOCATION_LOCK : L NORM NOVALUE, ! interlock allocation 
ALLOCATION: UNLOCK : “L_NORM NOVALUE, ! release allocation lock. 


SERIAL_FILE L NORM, ' serialize file processing 
RELEASE SERIAL _LOCK™ L_NORM N NOVALUE, ! release processing lock 
DEQ LOCR : L_NORA, ' dequeue a 
READS BLOCK : LINORM, i read block trom disk 
BLOCK : L_NORM, ! write block to disk 
DELETE FID L-=NORM ' flush file ID cache and release lock 
RELEASE LOCKBASIS i NORM, ' release buffers under specified lock 
CACHE LOCK : L_NORM, ' acquire cache sync lock 
EXTEND. INDEX : LINORM, ! extend the index file 
ERASE _BLOCKS : L-NORM, ' erase blocks on disk 
CHECKSUM : LINORM, ' compute file header checksum 
WRITE_HEADER : LUNORM, ' write current file header 
RESET-LBN : L-NORM, ! change q packing 48 7. of buffer 
L_NORM, ! invalidate a buf 
CREATE BLOCK NORM, ' materialize a he buffer 
CHECK _READER2 LN ORM, ' verify file header 
K_BIRTY L-NORM; ! mark buffer for write-back 


Serialize further file header creation processing. 


ALLOCATION_LOCK (); 


! The outer Loop pereras retries if blocks in the index file are bad or 

i are valid file headers. A block containing a valid file header is never 

' used to create a new file; it is simply left marked in use for recovery. 
' Bad header blocks are simply left marked in use in the index file bitmap; 
they will show up in a verify but are otherwise harmless. 


, CURRENT vcB; 
CHE ,BBLOCK C.VCBCVCBSL_CACHE], VCASL_FIDCACHE); 
"FLUSHE = 0; 
“1 DO 
GET _FILE_NUM: BEGIN 
! See if a file number is available in the file number cache. If n 
' we scan the index file bitmap for the first free (zero) bit. This “\ done 


: by starting with the block recorded in the VCB and looking at each block 
th a character scan. 
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5 
: 
; 
: 
; INVALIDATE 
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: 271 1260 ; 
3 if ! 2 ; IF _ .FID_CACHECVCASW_FIDCOUNT] EQL 0 ‘ 
: 274 1 8 4 BEGIN ; 
; 75 1264 4 PMSSGL_FIDMISS = .PMS$GL_FIDMISS + 1; ; 
; 18 ! $ é VBN = .VCBCVCB$B_IBMAPVBR); ; 
H 78 1 £5 4 IF NOT H 
; e279 1268 5 BEGIN ; 
H a0 : 8 2 ais Si GEQ .VCBCVCBSB_IBMAPSIZE] DO ‘ 
3 a6 1271 6 BUFFER = READ BLOCK (.VBN + ,VCBCVCB$L_IBMAPLBN), 1 {Nogy TYPE); > 
; 28 1 i 6 IF NOT CHSFAIC (ADDRESS = CHSFIND_NOT_CH (512, .BUFFER, 255)) ; 
> 284 1273 6 THEN EXITLOOP 0; ‘ 
: 5Be 1398 & me 
; at4 1 6 END : 
: 288 127 é; 5 
; 289 1278 : Having found a bitmap block with free files in it, attempt to fill the ; 
3 soy 1523 5 We D cache. If it refuses to fill, it's because we're at the index : 
i 299 im it 
3; a 1586 5 : 
; 294 1283 4 THEN FILL_FID_CACHE (.VCB, pPECER -VBN); ; 
: 999 1284 4 IF FID_CACHECVCASW_F IDCOUNT Ear 6 ; 
3 aor 1286 5 BEGIN 3 
: 298 1287 5 : 
; 299 1288 5 ! If the index file EOF coincides with the physical end of file, we have to : 
; 300 1$88 5 | extend the index file. Otherwise, we just have to push the EOF. Before | : 
; 301 1290 5 ! extending the index file, if we are in a cluster, ask for a cluster-wide : 
3 308 153) é flush of the file ID caches. : 
; 304 1598 5 : 
; 305 1294 5§ IDX_FCB = .VCBCVCBSL_FCBFLI; : 
; 306 1295 5 CURRENT EOF = .IDX_FCBCFCBSL_EFBLK); : 
; $05 1696 : Ferenc EOF GEGU .IDX_FCBCFCBSL_FILESIZE) : 
; 309 1298 6 BEGIN 3 
; 310 +43 6 IF NOT .BBLOCK CCURRENT_UCBCUCBSL_DEVCHAR2], DEV$V_CLU] ; 
; e1) 1300 6 is . CACHE __FLUSHED : 
i 318 130¢ , EGIN | ; 
3 «314 133 7 LOCAL IDX FILE. ID, LOCK_ID; 3 
; 315 1304 7 DELETE FID (0); ’ 
: 316 1305 7 RELEASE _LOCKBASIS (-1); | ; 
; 17 1308 7 ALLOCATYON_UNLOCK (); : 
: 318 1307 7 IDX_FILE_ID = FIDSC_INDEXF OR .CURRENT_VCBLVCB$W_RVN] * 24; ; 
: 239 1308 7 LOCR_ID = 0; : 
; 320 1309 7 CACHE LOCK (.1DX_FILE_ID, LOCK_ID, 1); | ; 
3 $5) 1310 7 ALLOCATION_LOCK 7); ; 
: 32 1311 7 DEQ LOCK (7LOCK_ID5; ; 
; 131g ? CACRE_FLUSHED ="=1; ; 
; $e ez , LEAVE GET_FILE_NUM; : 
; $$ 1318 6 ELSE : 
; 3e 1316 6 EXTEND_INDEX (); : 


ile EOF to be physical end 
le systems that may 


OT (.CURRENT_EOF #1, 16); 
(FH2SL_MIGHWATER) #4)/2 


Write back 


is check one out. 


Bins * 

3 0 1 i 6 ! Move the EOF and zero the intervening blocks. Note that this version 
3 1 1320 6! of the file system always sets the index f 

3 ¢ 1321 6! of file, because the index file is zeroed on extend. This code is 
3 1 ¢ 6 ! present for compatibility with past and future 

: 4 1 6 ! not zero the index file on extend. Serialize activity on the index 
: 5 13246 6! file header. 

; 3% 1325 6! 

Bar 1326 6 

; 338 1327 5 ELSE 

; $20 1328 6 BEGIN 

R 40 1329 6 TEMP = .CURR_LCKINDX; 

3 $04 i? 9 ? SERIAL_FILE TIDX_FCB CFCBSW_FIDI); 

3 303 1382 6 LBN = MAP_IDX (.CURRENT_EOF+1, COUNT); 

: 344 13 6 ERASE BLOCKS (.LBN, .COONT, .{0 CHANNEL); 

; 349 1336 6 CURRENT_EOF = .CURRENT_EOF + .COUNT; , 

; 347 1336 6 HEADER = READ_IDX_HEADER (); 

; 348 1337 6 BBLOCK HEADER FHBSH_RECATIRI, FATSL_EFBLK 
; 349 1338 6 BBLOCK wih FH2$W_RECATTR FATSW FFBYT 
; 350 1339 6 IF .HEADER CFH2$B_IDOFFSETI Géau (SBYTEOFF 
3 32} 1340 6 THEN HEADER CFH2$C_HIGHWATER] = .CURRENT_E 
3 32 1346 6 CHECKSUM (.HEADER); 

3; «4354 1343 6 WRITE Sait Q; 

; 355 1344 6 1DX_FCBCFCB$L_EFBLK] = .CURRENT_EOF; 

3; 336 1345 6 RESET_LBN (.HEADER, .VCBCVCBS$L_IXHDR2LBN)); 
: 357 1346 6 WRITE~BLOCK (. HEADER); 

; 358 1347 6 INVALIDATE (.HEADER); 

3; 359 1348 6 

; 360 1349 6 RELEASE SERIAL_LOCK (.CURR_LCKINDX); 

; 361 1350 6 RR_LCRINDX =". TEMP; 

s 3% 1351 5 3 

; 3 1326 5 

3 44 1327 5 Go around the loop to try to allocate a file number again. 
; 366 1355 : 

; 367 1356 5 LEAVE GET_FILE_NUM; 

; 368 1357 § END 

; 369 1358 4 ELSE 

3; 370 1359 4 : ’ ; 

3 (371 1360 4 ! We successfully filled the file ID cache from the bitmap. 
: 37 1361 4 ! the index file bitmap buffer. 

; a 1306 4! 

: 74 1365 4 

3 75 1366 4 WRITE_BLOCK (.BUFFER); 

s 376 1365 4 

- Sr 1398 4 END 

; 378 138 4 ; 

: 79 1368 4 ! If the file ID cache had entries in it, all we have to do 
: 380 1 +4 4! 

: 81 1370 4 

a, oe 1371 ELSE 

: 8 1376 PMSSGL_FIDHIT = .PMSSGL_FIDHIT ¢+ 1; 

; 384 137 
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licasw.F1DCOUNT) -1; 


' record for cleanup 


Map the file header. If it fails to map, we have screwed up badly. 


FILE NUMBER + .VCBCVCB$B_IBMAPSIZE] + .VCBCVCB$W_CLUSTER]*4; 


LBN = MAP_IDX (.VBN) 
IF .LBN EGL -1 THEN BUG_CHECK (HDRNOTMAP, FATAL, ‘Allocated file header not mapped'); 
FILE_IDCFIDSW_NUM) = .FILE_NUMBER<O,16>; 
FILE-IDCFIDSB-NMX] = .FILE~NUMBER<16,8>; 
FILE_IDCFID$B_RVN] = .CURRENT_RVN; 
If this is the creation of a new primary header, PRIM_LCKINDX will 


be zero. In that case, serialize further processing on that header. 
If extension headers are being allocated, the primary lock index has 
already been established. 


IF .PRIM_LCKINDX EQL 0 
THEN 
BEGIN 
Release the allocation lock prior to serializing on this fiie id. 
This could be a valid header that another process is trying to modify 
° 


allocation on, and if so, we would deadlock if the allocation lock 
were not released now. 


Read the header; then check the block read for resemblence to a file header. 


HEADER = READ_NEW_HEADER (.LBN); 
IF .HEADER NEQ 0 
THEN 


BEGIN 
FILE IDCFID$W SEQ) = ,HEADERCFH2$W_FID_SEQ]; 
STATOS = CHECR_HEADER2 (.HEADER, .FILE7ID); 


Make the final checks that the block is ecceptante as a file header. We do 
not use vaiid file headers. Also, we skip file numbers with the low 16 bits 
all zero to avoid confusing the old FCS-11. Also skip file numbers in the 


reserved file number range to avoid total confusion if the volume is damaged. 
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v04-000 14-Sep-1984 30:14 DI SKSVMGHASTER. CF11X.SRCICREHDR.B32; "29 * (2). 
| 

; 44 1431 4 

3 646 14 ¢ 4 IF .FILE_IDCFIDSW_NUM] EQL 0 

3 444 14 4 | 

3; 445 1434 & WRITE_BLOCK (. HEADER) 

3; 446 1435 4 SE 

; «464 14 $ 4 IF NOT ote 

: 4468 14 2 AND NOT (.FILE_IDCFID$B_NMX] EQL 0 

> 449 1438 AND .FILE_IDCFIDS$W_NUM) LEQU . CURRENT _VCBCVCB$B_RESFILES]) 

; 450 1439 & THEN EXITLOOP: 

3 631 1440 END; 

: $26 1441 

3; 65 1226 ' If we get this far, i.e., did not exit the loop, we do not want to use 

3 6454 144 ! this file header for some reason. Before going around another time, 

; 455 1444 ' release the serialization lock if we got one in this routine, and then 

: te 1002 reacquire the allocation lock for another pass around the Loop. 

; 458 1447 

: 459 1448 IF .NEW_LCKINDX 

: 460 1449 THEN 

; 461 1450 4 BEGIN 

; 46 1451 & if »HEADER NEQ , 

; 46 1036 4 THEN INVALIDATE (.HEA DER); 

: 464 1453 4 RELEASE SERIAL. OCk i. PRIM_ LCKINDX); 

; 465 1454 & PRIM_LCRINDX = 

; 466 1455 4 ALLOCATION_ LOCK 0; 

: 467 1456 ; END; 

: 468 1457 : 

: 469 1458 2 END; ! end of file number allocation loop 

; 470 1459 2 

; 471 1460 2 HEADER_LBN = .LBN; ! record LBN of new header 

3: 47 1461 § 

3; 47 re «| IF .STATUS EQL 0 

: 676 14635 2 AND .(.HEADER)<0,32> NEQ 0 

: 475 1464 § THEN Fite ttit o$i_ SEN = -EXES$GQ ever itecte. 16>; 

; 476 1465 FILE_IDCFYID$w_SEQ)~= “FILE IDCFIDSW_SEQ) + 1; 

: 477 1466 2 CHSMOVE (FIDSt CENGTH: FICE ID. HERDERCFH2$0_ FIDJ); 

; 478 1467 2 NEADEREF HOSE. FID_RVNJ = 0; 

: 4679 1468 2 

: 480 1469 2 MARK_DIRTY (.HEADER); 

: 481 1470 2 .HEADER 

: 482 1471 2 ; 

; 483 1472 1 END; ! end of routine CREATE_HEADER 


TLE CREH 
ENT \v04- °600\ 


TRN PMSS$GL_FIDHIT, PMSSGL_FIDMISS 

TRN EXE$GQ ryt ine ALLOCATION, LOCK 
TRN ALLOCATION 
TRN SERIAL ATES NRELEASE _SERIAL_LOCK 
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1 Sep-1984 09:41 VAX-11 Bliss-32 V4.0-742 ge 10 

14- 30071387 90:93: 114 DISKSVMSMASTER:CF11X.SRCICREHDR.B32; ‘’s (2) 
.EXTRN INVALIDATE, CREATE_BLOCK : 
TEXTRN CHECK_HEADER?, MARR_DIRTY : 
“EXTRN BU KADRNOTMAP ; 
-PSECT $CODES,NOWRT,2 ; 
OBFC 00000 SENTRY CREATE HEADER, Save R2,R3,R4,R5,R6,R7,RB,- = 1146 ; 
SE 2c C2 00002 SuBL2 #44, SP : | : 
20 AE 04 0000 CLRL. NEW. LCKINDX > 1182) ; 
00006 cf 00 FB C0008 CALLS #0, ALLOCATION_LOCK : 1240 ; 
9 AA D 900 VL =104(BASE), V t 1249. ; 
56 B9 D 11 MOVL @88(VCB), fp _CACHE ; 1250. : 
1¢ AE OG O13 CLAL ACHE _FLUSH : 1251. : 
02 =A 83 4 1$: TSTW (FID- ChCHES. + 1261) ; 
03 13 00018 BEQL 4 : ; 
0148 31 0001D BRW 13$ : ; 
000000906 00 D6 00020 2s: INCL  PMSS$GL_FIDMISS > 1264) : 
18 AE A Ad 9A 00026 MOVZBL 58(VCBY, VBN : 1265) ; 
00 ED 00028 38: CMPZ2V #0, wy 56(VCB), VBN : 1269. ; 
3a 15 00032 BLEQ 6$ : : 
03 DD 90054 PUSHL #3 + 1271) : 
01 DD 00036 PUSHL #1 : ; 
50 20 AE DO 00038 MOVL _—VBN, RO : ; 
0 8940 9F 0003C PUSHAB @48(VCB)CRO] : ; 
0000G CF 03 FB 00040 CALLS #3, READ_BLOCK 3 ; 
OC AE 50 b0 00045 MOVL UFFER : F 
0200 = 8F FF 6BF 638 00049 SKPC }6=—-s#255,, #512, @BUFFER : 1272 3 
02 12 00051 BNEQ 4$ : : 
51 D4 00053 CLRL sR ; : 
6E 51 DO 00055 4s: MOVL R1, ADDRESS ; | : 
6E D5 00058 TSTL ADDRESS ; : 
05 12 O005A BNEQ : : 
18 AE 06 0005C INCL BN > 1274) : 
CA 11 OOOSF BRB 3$ 3 1269) 5 
18 AE DD 00061 5$: PUSHL VBN > 1283 | ; 
10 AE DD 00064 PUSHL BUFFER : | ; 
59 DD 90067 PUSHL VCB ; : 
0000v CF 03 FB 00069 CALLS #3, FILL_FID_CACHE : : 
02 A 8 O006E 6$: TSTW g(F IDC CACHE )~ > 1284 : 
03 13 00071 BEQL $ : F 
00EB 3 90075 BRW 12$ : ; 
58 69 DO 00076 7s: MOVL (VCB), IDX FCB > 1294 | : 
&? 3c = ABsCé#O 9079 MOVL  60(IDX_FCBS, CURRENT EOF + 1295 | ; 
38 AB 57 D1 7D CMPL § CURRENT_EOF, 56(1DX_FCB) > 1296) ; 
59 1F 00081 BLSSU -10$ : : 
50 94 AA DO 00083 MOVL 7 108(BASE) , RO > 1299 | ; 
49 3c = AOs«éEB 00087 BLBS  60(RO) : : 
45 1¢ AE CE 0088 BLBS CACHE _F LUSHED, 8$ ; 1300. : 
7E D4 O008F CLRL =-(SP)~ : 1304. : 
00GOG CF 1 FB 9091 CALLS #1, DELETE_FID ; 3 
7E 1 CE 00096 MNEGL #1, -(SP) ~ > 1305 : 
0 00G CF 1 FB 00099 CALLS #1, RELEASE_LOCKBASIS ; : 
00006 ef 0 FR 4 CALLS #0, ALLOCATTON_UNLOCK ; 1306) 3 
0 98 AA OA MOVL =164(BASE), RO™ ; 1307 ; 
20 OE A ¢ OO MOVZ2WL 14(RO) BO" : | : 
5 1 OAB ASHL #24, RO, RO : : 


Fs » 4 
| CREHDR 16-Sep-1984 00:09:41 VAX-11 Bliss=32 V4.0-742 Page 11 
yoe~000 aoe 1 90:98: Tt DISKSVMSMASTER:CF11X.SRCICREHDR.B32; 1 . (2) 
50 01 88 OOOAF BISB2 #1, IDX_FILE_ID ; : 
24 AF D4 0008 CLRL. = LOCK_ID + 1308 F 
0 bp 008 PUSHL #1 + 1309 ; 
28 AE OF 000B PUSHAB LOCK_ID : ; 
50 DD OOOBA PUSHL IDX.PILE ID : 3 
0000G CF 8 a) pe CALLS #3, CACHE_LOCK : 3 
00006 CF 0 FB 000C1 CALLS #0, ALLOCATION_LOCK : 1310. : 
24 AF DD d0¢6 PUSHL LOCK_ID + 1311 : 
0000G CF FB 000C CALLS #1, BEQ_LOCK : $ 
1C AE 1 rf Bock MNEGL #1, CACRE_FLUSHED : 1312 : 
5 11 000D BRB : 131 ; 
00006 CF 90 FB 00004 gs: CALLS #0, EXTEND_INDEX : 1316) : 
FF3C 31 00009 9$: BRW : 1296 : 
046 AE 14 AA 00 000DC 10$: MOVL O(BASE), TEMP : 4 ae ; 
24 AB 9F O00E1 PUSHAB 36(1DX_FCB) + 1330 ; 
00006 CF 01 FB OO0E4 CALLS #1, SERIAL_FILE ; : 
28 «AE OF OO0E9 PUSHAB COU + 1332 ; 
01 A? 99F OOOEC PUSHAB 1(CURRENT_EOF) : ; 
0000v CF 02 FB OOOEF CALLS #2, _1Bx 3 : 
10 AE 50 DO O00F4 MOVL LBN : ; 
FF78 CA ODD OO00F8 PUSHL -136(BASE) + 1333) ; 
2C AE DD OOOFC PUSHL COUNT : ; 
18 AE OD OOOFF PUSHL LBN : F 
00006 CF 03 FB 00102 CALLS #3, ERASE_BLOCKS : | ; 
57 28 AE CO 00107 ADDL2 COUNT, CURRENT EOF : 1334) 
0000v CF 00 FB 0010B CALLS #0, READ_IDX_HEADER : 1336) 
58 50 00 pot MOVL RO, HEADER 3 
50 01 A? 9E 0011 MOVAB 1(R7), R + 1337 
1c A&B 50 10 9C 00117 ROTL #16, RO, 28(HEADER) $ 
20 AB B4 0011C CLRW  32(HEADER) : 1338 
28 68 91 OO1IF CMPB (HEADER), #40 : 1339) 
05 1F 00122 BLSSU. 11 F 
4C AB 01 A? 9E 00124 MOVAB 1(R7), 76(HEADER) + 1340 
58 DD 00129 11$ PUSHL HEADER + 1342) 
0000G CF 01 FB 00126 CALLS #1, CHECKSUM ; 
00006 CF 00 FB 00130 CALLS #0. WRITE_HEADER > 1343 
AB 57? pO 00135 MOVL § CURRENT_EOF, 60(1DX_FCB) > 1344 
2c #A9 (ODD 01 9 PUSHL  44(VCB) > 1345 
58 DD 0013¢ PUSHL HEADER : | 
00006 CF 08 FB 001 : CALLS #2, RESET_LBN : 
58 DD 0014 PUSHL HEADER + 1346 
00006 CF 01 FB 00145 CALLS #1, WRITE_BLOCK ; 
58 DD O014A PUSHL HEADER + 1347 
00006 CF 01 FB O014C CALLS #1, INVALIDATE | 
14 AA DD 00151 PUSHL 20(BASE) t 1349 | 
00006 CF 01 FB 0154 CALLS #1, RELEASE SERIAL_LOCK ; 
14 AA 04 AE p 0159 MOVL TEMP, 20(BASE) + 1350 
FEB? 31 001 F BRW > 1356 
OC AE DD 00161 128:  PUSHL BUFFER > 1364 
00006 CF 1 FB 00164 CALLS #1, WRITE_BLOCK : 
6 11 00169 BRB 14§ > 1261. 
0¢v000006 D 168 13$: INCL § PMSSGL_FIDHIT : 1372 | 
146 AE 4 Ad DO 00171 14$: MOVL 6(FID“CACHE), FILE_NUMBER : 1374 | 
é A6 f 178 (FID_CACHE) ; 1375 
50 A6 3C 0017 MOVZWL 2(FID™CACHE), RO ; 1576 | 
0 4 ca 17D BULLE #4, RO ; | 
24 Ab 28 «Ab 0 28 00180 MOVCS RO. 4O(FID_CACHE), 36(FID_CACHE) : 1378) 


4 
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14-Sep- 0-1 3be 99: 9 114 DISKSVMSMASTER:CF11X.SRCICREHDR.B32; ? (2) 
AS AA 146 AE DO 00186 MOVL FILE_NUMBER 788(BASE) : 1380. 
AC AA a0 AA b0 188 MOVL att aaseS -84 (BASE) : 138 
20 38 «=6A9 «9A 001 MOVZBL 56(VCB), RO : 1386) 
14 AE g1 194 ADDL Fate NUMBER, RO, R1 : 
50 3c =A 3C: (00199 MOVZWL 6 (VEB) 0 : 
18 AE 6140 DE 00190 MOVAL (R1)CRO4, VBN : 
18 AE DD 1h PUSHL  VBN + 1387) 
0000v CF 01 FB iA CALLS #1, MAP_IDX : | 
AE 50 DO OO1AA MOVL RO. LBN : | 
FFFFFFFF 6 8F 10 AE Di OO1AE CMPL LBh, a1 + 1388 | 
04 12 0186 BNEG $ : 
FEFF 001B BUGW : 
0000* 001BA .WORD <BUG$_HDRNOTMAP! 4> : 
046 BC 14 AE BO 00 18¢ 15$ MOVW FILE_NUMBER, aFiLE_ID + 1390) 
50 04 AC pO 01C1 MOVL FILETID: RO + 1391 
05 Ao 16 AE 90 001¢5 MOVB FILE-NUMBER+2, 5(RO) : 
50 04 Ac 00 O01¢A MOVL FILE7ID > 1392) 
04 AO AO AA 90 ICE MOVB $-96(BASE), 4(RO) : | 
18 AA D5 9910 TSTL  24(BASE) + 1400 | 
15 12 00106 BNEG 16$ : | 
00006 CF 00 FB 00108 CALLS #0, ALLOCATION_UNLOCK + 1410. 
04 AC DD 00100 PUSHL FILE_ID + 1411 
00006 CF 01 FB OO01E0 CALLS #1, SERIAL_FILE 3 
18 AA 50 D0 001E5 MOVL RO, 24(BASE) : 
20 AE 01 DO 001E9 MOVL #1, NEW_LCKINDX + 1412 
10 AE DD OO1ED 168 PUSHL LBN + 1418) 
0000v CF 01 FB 001FO CALLS #1, READ_NEW_HEADER : 
58 50 00 001F5 MOVL RO, HEADER ; | 
3E 13: 001F8 BEQL -18$ : 1420) 
50 04 AC DO OO1FA MOVL FILE_I t 1423 
02 Ad OA AS BO OOIFE MOVW Firth 2(RO) ; 
04 AC DD 00203 PUSHL FILE_ID + 1424 
58 DD 90206 PUSHL HEADER ; 
00006 CF 02 FB 00208 CALLS #2, CHECK_HEADER? ; 
08 AE 50 00 00200 MOVL RO. STATUS ; 
: 04 AC DO 00211 MOVL FILE_ID, R2 + 1432 
62 B5 00215 TSTW  — (R2) ; 
09 12 00317 BNEQ 17$ ; 
58 DD 00219 PUSHL HEADER > 1434 
00006 CF 01 FB 0218 CALLS #1, WRITE BLOCK : 
16 11 0 BRB 19§ : 
12 08 AE £8 0222 17$ BLBS STATUS, 18$ + 1436 | 
05 A 5 00226 TSTB 5(R2) > 1437) 
2F if} 6 9 BNEQ 21$ ; | 
98 AA D B MOVL  -104(BASE), RO > 1438 | 
51 4F AO 9A OO22F MOVZBL 79(RO), R1 : 
51 B1 00233 CMPW ORT, (RO) ; 
22 1F 00 6 BLssu 21 ; 
18 20 AE E9 00238 18$ BLBC NEW_LCKINDX, 20$ + 1448 | 
5 D3 6 C TSTL HEADER > 1451, 
97 ; BEQL 19% ; 
8 DD 0024 PUSHL HEADER > 1452 | 
00006 CF 01 FB 4g CALLS #1, INVALIDATE ; 
18 AA DD 00247 198 PUSHL 24 ASE) : 1453 
00006 CF 01 FB OO24A CALLS #1 RELEASE _SERIAL_LOCK ; | 
18 AA D4 0 4F CLRL. 0-24 CBA : 
00006 CF 00 FB 00252 CALLS #0, ATLOCATION. LOCK ; 
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vou~000 735p-1 382 93: 0:14 DISKSVMSMASTER:CF1iX.SRCICREHDR.B32;1 > 3} 


: $83 1673 ! ROUTINE FILL_FID_CACHE (VCB, BUFFER, VBN) : L_NORM NOVALUE = ; 
: cB 1475 1 S44 ; 
: 488 147g 1 | : 
; 489 1477 1°! FUNCTIONAL DESCRIPTION: 3 
; 490 1478 1! ; 
; 491 1479 1! This routine refills the cache from the supplied bitmap buffer. : 
; 49 1480 1! It will not fill the cache with file ID's that represent : 
3; 49 1481 1! headers past the current index file EOF. ; 
3; 494 14 ¢ 2's : 
; 495 1485 1! 3 
H +38 bt 3 1 !' CALLING SEQUENCE: : 
; 49 1485 1! FILL_FID_CACHE (ARG1, ARG2, ARG3) ; 
; 498 1486 1! | 3 
; 499 1487 1 ! INPUT PARAMETERS: 3 
: 500 1488 1 | ARG1: address of volume VCB ; 
; 301 1489 1! ae address of bitmap buffer . 
3 202 1490 1! ARG3: relative block number in bitmap : 
; 3 1491 1! | 3 
; 504 1038 1 ! IMPLICIT INPUTS: 3 
; 505 149 7: NONE , 
; 506 1494 1! | : 
s S07 1495 1 ! OUTPUT PARAMETERS: 3 
; 508 1496 1! NONE | 3 
; 509 1497 1! 3 
; $10 1498 1 ! IMPLICIT OUTPUTS: 

3 Sti 1499 1! NONE | 

; 512 1500 1! 

; Sts 1501 1 ! ROUTINE VALUE: 

3; 514 1308 7 3 NONE 

: $15 1503 1! 

; 516 1506 1 ! SIDE EFFECTS: : 

s Si7 1505 i! file ID cache modified 

s 5% 1506 1! 

; 519 1507 1 !-- 

: 520 1508 1 

: 521 1509 2 BEGIN 

i 382 1510 

3 Se 1511 MAP 

: 554 1512 2 REF BBLOCK, ! Local copy of VCB address 

; 353 131? é BUFFER REF BITVECTOR; ! address of index file bitmap buffer 

: 527 1515 2 LOCAL 

; 528 1316 CACHE : REF BBLOCK, ' pointer to cache block 

3; 3e 151 FID CACHE REF BBLOCK ' pointer to file ID cache 

; 530 1518 3 ADDRESS : REF BITVECTOR, ! address of byte in buffer | 

3 «6531 1519 FREE_COUNT, ' count of cache entries to fill 

; 236 1520 BITPOS ! bit positon of free bit within byte 

3; 33 135! BITPOS2, ' bit positon of first used bit 

; 334 15 ; FILE NUMBER, ! file number found é 

3; 535 13 ? 1DX_9BN; ' current block in index bitmap 

; 3$ 1525 2 BIND_COMMON; 

§ 38 15 § 

; 539 15 

; 340 1528 ! If the cache is not currently marked valid, attempt to take out the 

3 «541 1529 ' cache lock if we are in a cluster and may do so. 


H 4 | 
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; 54 1530 ! 
s $6 1531 
> 5446 1 § CACHE = .VCBCVCBSL_C 
; 545 1 FID CACHE = JAACHELVCASL “seas: 
; 4g 1534 IF NOT .CACHE 
; i 5 2 THEN INIT_FID_CACHE~( (LEACHED; | 
; 549 15 $ ' Fill the cache from the suppl tee ethene buffer. Find each byte containing 
; 550 1538 ' a free bit, and then find the free bit. 
s $5} 1539 ! 
; 22 1541 2 ADDRESS = .BUFFER; | 
; 224 134¢ FREE_COUNT = .FID_CACHECVCASW_FIDSIZEJ/2 = .FID_CACHECVCASW_FIDCOUNT] + 1; 
3 228 1544 WHILE 1 DO | 
; 3 1545 BEGIN 
; 558 1546 IF CHSFAIL (ADDRESS = CHSFIND_NOT_CH (.BUFFER+512-.ADDRESS, .ADDRESS, 255)) 
; 559 1547 THEN EXITLOOP; 
; 560 1548 FFC (ZREF (0), SREF (8), . ADDRESS, BITPOS) 
; 20) 138) FILE_NUMBER = .VBN*®4096 + (ADDRESS=. BUFFER) #8 + .BITPOS + 1; 
; 568 1382 Check file number against index file EOF and the maximum file Limit. 
: 565 155 
; 566 1554 IF .FILE_NUMBER + .VCBCVCBSB_ JOnars ize) + .VCBCVCBSW_CLUSTER]*4 
; 567 1555 GTRU .BBLOCK C.VCBCVCBSL-FCBFLJ, FCBSL EFBLKI 
; 568 1556 OR .FILE_NUMBER GTRU .VCBLVCBSL PMAXFILES Be 
; 288 132% THEN EXITLOOP; | 
; $7) 1559 ' Enter the file number in the cache and mark it busy in the bitmap. | 
3 2r¢ 1560 ; ! Exit the loop if the cache is now full enough. 
Wee 1561 ! 
3; 574 136¢ 
s 375 156 ADDRESSC.BITPOS) = 
; 576 1564 FID CACHE VCASW pei = .FID_CACHECVCASW_FIDCOUNT] + 
3; S77 1565 3 VECTOR CFID_ a VEAsL FI 10L IST], .FID_CACHECVCASW_FIDCOU nia 1] = .FILE_NUMBER; 
: 578 1566 FREE og 1; 
; 579 1567 IF ppRee iis 
: 580 1568 OR chcHe VAS _FIDC_VALIDJ 
; 581 1569 THEN Exi Teo 
: 266 1329 END; ! end of bitmap processing loop 
: Ht 1326 IDX_VBN = ! update current VBN of index file bitmap 
; 28 157 IF <FILE = WOMBER<O 12> €QL O 
; 1574 2 THEN IDX"VBN = . 10x X_VBN + 
3 aH 1303 VCBEVCBSB. IBMAPVBN]~= .1DX_ (en; 
© } 
; 589 1577 1 END; ! end of routine FILL_FID_CACHE | 
O1FC 00000 FILL_FID_CACHE: 
WORD Save R2,R3,R4,R5,R6,R7,R8 3 19t3 
50 0% AC 49 0000 MOVL ye8 R 3; 153 
54 8 AO 00 0 MOVL (RO), CACHE ; 
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172 bytes, Routine Base: S$CODE$S + 028F 


; Routine Size: 


oss 


! If the cache is not currently marked valid, attempt to take out the 
cache lock if we are in a cluster and may do so. 


FID CACHE ? ith HECVCASL_FIDCACHE); 
IF ROT .BB CURRENT 0cB UCBSL BEVCHAR], DEVSV_DMT) 
AND NOT eartiah, VCBLVCB$v_WRITE_TF 
AND .FID_CACHELVCASW_ rIDSITE) ToFRu 


CREH 1e-se -Sep-1984 VAX=11 Bliss-32 V4.0-742 ge 17 Ck 
bee000 14-Sep-1984 t 99: 9337 DISK$V nen STER: CF11X.SRCICREHDR.B32; ? (4) | 
g 4 } ze } GLOBAL ROUTINE INIT_FID_CACHE (CACHE) : L_NORM NOVALUE = ; 
3; 39 1 0 1 !4¢ ; 
: 3¢ i i FUNCTIONAL DESCRIPTION: 
; 596 1388 : 9 3 
3; 397 1 Be 1! This routine nefits the cache ieee the s suppl ted bitmap buffer. : 
; 598 1585 1! It will not fill the cache with f at represent . 
; 599 1256 1! headers past the current index His? Or. ; 
; 600 1587 1! $ 
: 601 1588 1! ; 
; 60 1589 1 ! CALLING SEQUENCE: : 
; 60 1590 1! INIT_FID_CACHE (CACHE) : 
; 604 1591 1! 3 
; 605 1336 1 ! INPUT PARAMETERS: F 
; 606 1595 1! CACHE: pointer to main cache block ; 
; 607 1594 1! 3 
; 608 1595 1! IMPLICIT INPUTS: 3 
; 609 1596 1! NONE 3 
: 610 1597 1: | : 
3; 611 1598 1 ! OUTPUT PARAMETERS: ; 
; 612 1599 1: NONE | : 
; 6) 1600 1! : 
; 614 1601 1 ! IMPLICIT OUTPUTS: | Z 
3 615 1oR6 1! NONE 2 
3; 616 1603 1! 3 
3 617 1604 1 ! ROUTINE VALUE: 3 
; 618 1605 1! NONE ; 
3; 619 1606 1! 3 
3 630 1607 1 ! SIDE EFFECTS: : 3 
; 621 1608 1! cache marked valid, lock taken out 3 
3 ose 1609 1! 3 
3 6e 1610 1 !-- 3 
; 624 1611 1 3 
3; 625 1e\¢ BEGIN 3 
; 626 161 3 
3; 627 1614 MAP 3 
; 628 1615 2 CACHE : REF BBLOCK; ! pointer to cache block 3 
3 668 1616 : 
; 650 1617 LOCAL 3 
; 631 1618 FID_CACHE : REF BBLOCK, ' pointer to file ID cache 3 
; $36 193? INDEX_FID; ' lock basis for index file 3 
s o3% 166) BIND_COMMON; é 
; 635 16 ; 3 
3; 636 162 EXTERNAL ROUTINE : 
3 tt 19 4 CACHE _LOCK : L NORM; ' acquire special cache lock 3 
; 6 16 3 
3; © 16 3 
; 16 : 
3 16 : 
3 19 3 
: 183 3 
: 163 3 
; 16 3 
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_FIDCLKIDI, 
! end of routine INIT_FID_CACHE 
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-BBLOCK LCURRENT_UCBCUCBSL_DEVCHAR2], DEV$V_CLUJ 
x 
C f 
V v 
CACHECVCASV_FIDC_VALID) = 1; 


BEGIN 
END; 
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Routine Base: S$CODE$ + 0338 


79 bytes, 


; Routine Size: 
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; 663 1649 1 ROUTINE READ_NEW_HEADER (LBN) : L_NORM = 

> 664 1650 1 

; 665 1651 1 !+4 | 
; 66 16 § * 

; 66 1655 1 ! FUNCTIONAL DESCRIPTION: 

; 668 1654 1! | 
; 669 1655 1! This routine reads the block about to be used for a new file header. 

; 670 1606 1! It uses a local condition handler to fix up errors. 
; Or) 16 77 

; 67 1658 1} | 
; 67 1659 1 ! CALLING SEQUENCE: 
H ore 1660 1! READ_NEW_HEADER (ARG1) 

; 675 1661 1! 

; 676 1666 1 ! INPUT PARAMETERS: 

; 677 1665 1! ARG]: LBN of block to read 

3; 678 1664 1! 

; 679 1665 1 ! IMPLICIT INPUTS: 

; 680 1666 1! NONE 

; 681 1667 1! 

; 682 1668 1 ! OUTPUT PARAMETERS: 

; 6835 1669 1! NONE 

3; 6684 1670 1! 

; 685 1671 1 =! IMPLICIT OUTPUTS: 

; 686 1906 1! NONE 

; 687 1673 1! 

; 688 1674 1 ! ROUTINE VALUE: / 

; 689 1675 1! address of buffer containing block or 0 if bad | 
; 690 1676 1! 
; 691 1677 1 ! SIDE EFFECTS: 
; 69 1678 1! block read and/or written 

; 69 1679 1! 

> 694 1680 1 !-- 

3 699 1681 1 

; 696 1086 2 BEGIN 

3; 697 16835 2 

; 698 1684 LOCAL 

3; 699 1685 HEADER : REF BBLOCK; ! address of block read 

; 700 1686 

; 701 1687 BASE_REGISTER; 

; 702 1688 

: 703 1689 EXTERNAL ROUTINE 

; 704 1690 READ BLOCK : LLNORM, ! read a block 

: 705 1691 WRITE _ BLOCK : LINORM, ! write a block | 
; 706 1636 INVALIDATE : LINORM, ! invalidate a buffer 

; ada H+ 04 CREATE_BLOCK : LINORM; ! create a new block buffer | 
; 709 1695 ! Under control of the condition handler, we read the block. If the read 

; 710 1696 ! fails, we attempt to rewrite the block and then read it again. If either 
3; 6711 1697 ! of the latter fails, we return failure. 

; ne 1698 : 
ae 4 1699 

3; «6714 1700 ENABLE HANDLER; 
3 719 1701 

; rig 7 3 HEADER = READ_BLOCK (.LBN, 1, HEADER_TYPE); | 
; 718 1704 2 IF .HEADER EQL 0 
3 «6719 1705 THEN 
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ROUTINE HANDLER (SIGNAL, MECHANISM) = 


4+ 
' 


i FUNCTIONAL DESCRIPTION: 


Pp 1 
JCREHDR.B32;1.— (By 


This routine is the condition handler for the initial header read. 
On surface errors, it unwinds and causes a return of 0 to the caller 


of the 1/0 routine to indicate error. Hard drive errors cause the 
usual error exit. 


CALLING SEQUENCE: 
HANDLER (ARG1, ARG2) 


INPUT PARAMETERS: 
ARG1: address of signal array 
ARG2: address of mechanism array 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


SS$_RESIGNAL or none if unwind 
SIDE EFFECTS: 
NONE 


SIGNAL : REF BBLOCK, ! signal arg array 
MECHANISM : REF BBLOCK; ! mechanism arg array 


! If the condition is change mode to user (error exit) and the status is 
' read error, zero the return RO and unwind to the the establisher. On 

' most write errors, zero the return RO and unwind to the caller. 

} Otherwise, just resignal the condition. 


IF, SIGNALCCHFSL_S1G_NAME EQL SS$_CMODUSER 
ME CHANISMCCHF$L_MCH_SAVROJ = 0; 
IF SURFACE_ERROR (.SIGNALCCHF$L_SIG_ARG1)) 
SUNWIND (DEPADR = MECHANISMCCHFSL_MCH_DEPTH)) 


i 
es 
Bes Sep 4 9:41 VAX-11 Bliss-32 V4.0-742 22. 
v04 14-Sep 71982 99: $3; 114 DISKSVMSMASTER:CF11X.SRCJCREHDR.B32; fag * (8) | 
; 789 177% END; | 
: 790 1775 
; e 1708 RETURN SS$_RESIGNAL; ! status is irrelevant if unwinding | 
; 79 1778 1 END; ! end of routine HANDLER 
.EXTRN SYSSUNWIND | 
so ge ag MED QEEEG WMMOLERS 307 Sae4 goth amg 
00000424 8F 4 Ad 01 20005 CMPL 4(RO), + #860 : | 
41 i O00E BNEQ 28 ; 
50 8 AC DO 0001 MOVL MECHANISM, RO ; 1769) 
C AO 04 00014 CLRL 12(RO) : 
50 04 AC 00 00017 MOVL SIGNAL, RO + 1771 
000001F4 &F 08 Ad 01 00018 CMPL  8(RO), #500 : 
1—E 13 000 BEQL 1$ : 
0000005C —&F 08 ad 01 900 5 CMPL  8(RO), #92 : 
14 13 00020 BEQL 1$ : 
0000008C ~=s BF 08 ad 01 O00¢F CMPL 8 (RO), #188 ; 
OA 13 00037 BEOQL 1$ : 
00002144 8F 08 AO 01 00039 CMPL 8 (RO), #8516 F 
OE 12 00041 BNEQ 2$ : 
7E D4 00043 18: CLRL. =(SP) : 1773 
E 08 Ac 08 C1 00045 ADDL3 #8, MECHANISM, -(SP) : 
000000006 00 02 FB OO004A CALLS #2, SYSSUNWIND ; 
50 0918 8F 3C 00051 2s: MOVZ2WL #2528, RO : 1776 
04 00056 RET : 1778 


; Routine Size: 87 bytes, Routine Base: S$CODE$ + 03E2 


5 
18-Sen-1984 99:09:41 


: L_NORM = 


v4.07 ° 3 
FTX SREJCREHDR.B32:1° 9" (93 


42 
1X. SRC 


This routine reads the volume's index file header, using the 


address of header read 
address of index file FCB 


compute file header file size 
read file header 

read a disk block 

validate file header 

reassign LBN of buffer 
invalidate buffer 


file size in the FCB. A mismatch indicates a failure in writing the 
header the last time; if this occurs, try the alternate header instead. 


CREHDR 

v04 

H 13? 1779 } GLOBAL ROUTINE READ_IDX_HEADER 

; 79 1781 1 {44 

: 798 17 ¢ 1! 

; 799 17 1 ! FUNCTIONAL DESCRIPTION: 

; 800 1784 1! 

83 5 3 i lt if i i 
3 : alternate t seems appropriate. 
; 80 17 $ 7! 

3 Be 1788 1 ! CALLING SEQUENCE: 

; 805 1789 «1 /| READ_IDX_HEADER () 

; B08 1790 1! 

; 0 1791 1 ! INPUT PARAMETERS: 

; 808 1736 1! NONE 

; 809 1795 1! 

; 810 1794 1°! IMPLICIT INPUTS: 

; 11 1795 1! CURRENT_VCB: VCB of volume 
; \¢ 1738 1: 

: 1 1797 1 ! OUTPUT PARAMETERS: 

; 814 1798 1! NONE 

: 815 1799 1! 

; 816 1800 1 ! IMPLICIT OUTPUTS: 

; 817 1801 1! NONE 

; 818 16 1! 

; 819 1805 1 ! ROUTINE VALUE: 

: 820 1806 1! address of file header read 
: 821 1805 1! 

; 822 + 1 ! SIDE EFFECTS: 

; 8235 1807 1! NONE 

; 824 1808 1! 

; 825 1809 1 !-- 

: 826 1810 1 

3 Ser 1811 2 BEGIN 

: 828 1316 2 

3 4 3 2 

; 830 1814 2 LOCA 

; «831 1815 2 HEADER : REF BBLOCK, 
: ae6 a 2 FCB : REF BBLOCK; 
; 83 181 

; B34 1818 2 BIND_COMMON; 

; 835 1819 

; 836 1820 EXTERNAL ROUTINE 

; 837 1821 FILE_SIZE _NORM, 

$ Hts i § READ_HEADER L_NORM, 

; 839 1 READ BLOCK “NORM, 

; 840 iss CHECR_HEADER2 L-NORM, 

; 6841 1825 RESET_LBN : L_NORM, 

3 Be 1826 INVALTDATE : LONORM; 
EO ABE | 

; 6845 1 $3 ' Read the index file header. Check the file size against the 
: 846 1830 : 

; rth 1831 ' 

3 8 1 ; ! 

: 49 1 

3 39 : : SAVE_STATUS = .USER_STATUS; 


w) 


-. 
-1984 9:41 VAX=11 Bliss-32 V4.0=742 4 
eet 93: 331 14 DISKSVMSMASTER:CF11X.SRCICREHOR.B352; 1 , 3 


04-000 
; 28 1 § FCB = CURRENT VCBCVCBSL_FCBFLI; 
: 1 HEADER = READ READER (0,7.FCB); 
; 2 § iF FiLe.si e oe HEADER) CsSu .FCBCFCBSL_FILESIZE) 
; 896 1840 BEGIN 
; 85 1841 FILE_HEADER = 0; 
; 858 1 4g INVACIDATE (HEADER); 
: 859 184 HEADER = READ. BLOCK (.CURRENT _VCBCVCBSL_IXHDR2L BN}. 1, HEADER_TYPE); 
; 860 1844 IF NOT CHECK_READER2 (.HEADER; UPLIT WORD (FIDSC_INDEXF, FIDST_ INDEKF, 0)) 
: 861 1845 THEN 
; 86¢ 1846 i BEGIN 
; 86 184 4 INVALIDATE (HEADER) 
> 864 1846 4 ERR_EXIT (0); 
; 865 1849 END? 
: 866 1850 IF FILE SIZE_(.HEADER) LSsu. gf CBCF cBsL _FILESIZE) 
; 867 1851 THEN ERR EXIT (SS$_BADFILEHD 
; 868 1826 FILE_HEADER = .HEADER 
; 869 185 RESET_LBN (.HEADER, RR a 
; 870 1854 END; 
: 871 1855 
; 87 1856 2 USER_STATUS = .SAVE_STATUS; 
: 87 1857 
: 874 1858 2 .HEADER 
; 875 1859 1 END; ! end of routine READ_IDX_HEADER 
00439 .BLKB 1 
0000 0001 0001 O043A P.AAA: .WORD 1, 1, 0 : 
.EXTRN FILE_SIZE, READ_HEADER | 
000¢ 00000 .ENTRY READ_IDX HEADER, Save R2.R3 : 1779 | 
CO AA 80 AA DO 90002 MOVL 128TBASE) 4 (BA SE) > 1834 | 
52 98 BA D0 0000 MOVL 3 Toccaaees. : 1836) 
52 DD 00008 PUSHL FCB > 1837) 
7E D4 00000 CLRL. = (SP) ; 
00006 CF 0 FB O00F CALLS #2, READ_HEADER ; | 
53 50 dO 00014 OVL RO, HEADER 3 
53 DD 00017 PUSHL HE DER + 1838. 
00906 CF 1 FB 00019 CALLS ILE_SIZE : 
B A2 g D1 O01g CMPL 4 OCF (FCB) ; 
1€ 000 BGEQU 3$ ; 
04 AA D4 00 4 CLRL 4(BASE) > 1841 
53 DD 7 PUSHL HEAD ER > 1842 
00006 cr 01 FB 00029 CALLS , INVALIDATE ; 
E 1 20 O02E mova 4 -(SP > 1843 | 
5 98 AA dO 00031 VL 7104<BASE, RO ; 
2C AO DD 00035 PUSHL (RO) : 
00006 cf 2 FB 038 CALLS i. READ BLOCK ; 
3 p 38 D MOVL RO ADER 3 
B? AF OF 4 PUSHAB  P. a” + 1844 | 
53 DD 9 4 PUSHL HEADER ; 
00006 CF FB 4 CALLS #2, CHECK_HEADER2 : 
A EB OO04A BLAS =O, 18 : 
DD 0004D PUSHL HEADER > 1847 
00006 CF 01 FB 0004F CALLS #1, INVALIDATE : 


= 4 
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128 bytes, Routine Base: $CODE$ + 0440 


; Routine Size: 
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1860 


F 5 
16-Sep-1984 :09:41 V V4.0-74 
1a-8ep-19 4 90:98:44 D Wri ge eRe 


Pp 6 Dd 
JCREHDR.B32:1°" (85 A 


; 878 196) 1 GLOBAL ROUTINE MAP_IDX (VBN, COUNT) : L_NORM = : 
; 879 1 °¢ 1 5 
3 HY 130 1 t+¢ ; 
H 1 1864 1! | : 
; : 1992 : FUNCTIONAL DESCRIPTION: | : 
; Bae 1867 : This routine maps a virtual block in the index ‘ile. | : 
; 886 139? 1 ! CALLING SEQUENCE: : 
; 887 1870 1! MAP_IDX (ARG1, ARG2) ; 
; 888 1871 1! ; 
; oS 1876 1 ! INPUT PARAMETERS: 3 
; 890 1875 1! ARG1: VBN of block to map ; 
; 891 1874 1! ; 
; B98 1875 1 ! IMPLICIT INPUTS: : 
; 89 1876 1! NONE : 
; 894 1877 1! 3 
; 895 1878 1 ! OUTPUT PARAMETERS: : 
: 47 + 14 : COUNT: (optional) address to store count of contiguous blocks | : 
; 898 1881 1 ! IMPLICIT OUTPUTS: : 
; 899 1336 1! NONE : 
; 900 1883 1! 3 
; 901 1884 1 ! ROUTINE VALUE: : 
: 90 1885 1! LBN of blocks mapped or -1 if failure : 
; 90 1886 1! 3 
; 904 1887 1 ! SIDE EFFECTS: : 
; 905 1888 1! NONE . 
; 906 1889 1! : 
: 907 1890 1 !-- : 
; 908 1891 1 : 
: 909 1098 2 BEGIN 3 
; 910 189 § 3 
; (911 1894 EXTERNAL ROUTINE 3 
SFR Ey i tte can tat end, tune ela, racensary meal 
: : . ! ma with current window ; 
: 914 1897 2 RELEASE SERIAL_LOCK: L_NORM, ! release nyne lock on file : 
3 a Ht 94 2 SERIAL_FILE : L_NORA; ! get sync lock on file ; 
; 917 1900 ; LOCAL 3 
; 918 1901 INCOMPLETE_FLAG, ! Saved state of CLF_INCOMPLETE : 
; 919 1908 2 IDX_FCB : REF BBLOCK, ! address of index file FCB : 
; 920 190 LBN, ' resulting LBN from map : 
3 3s! 1904 UNMAPPED, ' received count of unmapped blocks é 
: as¢ 132 TEMP; ! dummy to store resulting UCB : 
: 924 1907 BIND_COMMON; : 
; 952 1908 ; 3 
; 926 1909 ' rey to map with the existing window first. This can be done without : 
: 927 1910 ! taking out the sync lock on the index file. : 
; 928 1911 : : 
: 4 at 3 
3 a ay IDX_FCB = .CURRENT_VCB CVCBSL_FCBFLI; : 
: 336 Hb a IF (LBN = er _vieee (.VBN, .IDX_FCB CFCBSL_WLFLJ, 1000, UNMAPPED, TEMP)) : 

934 1919 THEN : 
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dice INCOMPLETE]; ! Save current state 


BSL_WLFLJ, 1000, UNMAPPED); 
INCOMPLE TE _FLAG: |! Restore saved state | 
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' Return the block count if asked for. 


IF ACTUAL COUNT GEQU 2 | 
.COUNT = 1000 = .UNMAPPED; | 
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! of routine MAP_IDX 


| 
| 
.EXTRN MAP_VBN, MAP_WINDOW 


001¢ 00000 .ENTRY MAP_IDX, Save R2,R3,R4 : 1861 
SE 08 C3 00002 SUBL2 #8, SP ; 
52 98 BA 00 00005 MOVL a-{f04(BASE), IDX_FCB > 1913) 
5E DD 00009 PUSHL + 1915 
AE 9F 00008 PUSHAB PPED ; 
7E O3E8 BF 3C 00005 MOVZWL yi 000. =(SP) : 
10 A2 DD 0001 PUSHL VecID x. FCB) : 
AC DD 00016 PUSHL  VBN : 
00006 CF 05 FB 00019 CALLS #5, MAP_WINDOW ; 
4 0 DO O001E MOVL RO. LBN : 
FEFFFFFF © BF 54 D1 00021 CMPL  LBN, #1 : 1916 
42 if 0028 BNEQ '1$ ; 
6E 14 AA DO OO02A MOVL gO (BASE) TEMP : 1919 
24 A2 OF 00 E PUSHAB 36(IDX_FCB) : 1920 
00006 CF 01 FB 00031 CALLS #1 SERIAL f LE ; 
01 A EF 000 Extzv #10, (BASED INCOMPLETE_FLAG > 1921 
23 A2 1 88 00038 BISB2 #1, 3$Cipx : 19 é 
04 AE OF 0003F PUSHAB UNMAPPED : 19 
7E O3E8 BF 3C O04¢ MOVZWL #1000, -(SP) F 
10 A2 DD 0004 PUSHL  16(IDX_FCB) ; 
04 AC DD 0 4A PUSHL VBN ; 
00006 CF .¢ 4D CALLS a, MAP _VBN : 
54 : D é MOVL RO ; | 
01 OA : INSV INCOMPLETE FLAG, #10, #1, (BASE) : 1934 
14 AA 6—E 01 A CMPL TEMP (BASE) > 1926 
OC 13 5E BEQL : 
14 AA Dd 0006 PUSHL +S BASE) > 1929 
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1 
14- 4 12:30:14  DISKSVMSMASTER:CF11X.SRCICREHOR.B32; 

00006 CF 01 FB 0006 CALLS #1, RELEASE SERIAL_LOCK ; | 

14. AA 6E 06 Oss MOV TEMP, G¢Gase) + 1930 

6C 91 6c 18: CMPB ss AP). ; 1938 
08  3C 0000038 ef 06 AE C3 isa SUBL3 UNMAPPED, #1000, aCOUNT + 1939) 
0 54 00 0078 2$: me 0 + 1942 | 
P } 


; Routine Size: 127 bytes, Routine Base: S$CODE$ + 04C0 


1832 
; Lexemes/CPU-Min: 55644 
; Used: 336 pages 


> Lines/CPU Min: 
: Compilation. Complete 


3 

960 1943 : 

; 961 1944 1 END : 
: 962 1945 0 ELUDOM : 
; PSECT SUMMARY : 
: Name Bytes Attributes | 3 
: S$CODES 1343 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; 
| i 

: Library Statistics : 
aie eee ee, Symbols -------- Pages Processing : 
: File Total Loaded Percent Mapped Time | : 
F .$255$DUA28: CSYSLIBILIB.L32;1 18619 67 0 1000 00:02.0 | : 
; COMMAND QUALIFIERS | ; 
; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:CREHDR/OBJ=OBJ$:CREHDR MSRC$: CREHDR/UPDATE=(ENHS: CREHDR) | ; 
; Size: 1336 eage + 7 data bytes ; 
; Run Time :03. 3 
; Elapsed Time: 2:03.8 3 
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